home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•Word Games•
/
HyperJotto 1.1 ••••
/
HyperJotto 1.1 ееее
/
stack.txt
< prev
next >
Wrap
Text File
|
1988-02-01
|
4KB
|
116 lines
-- stack: in.1 –µ–µ–µ–µ
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 5
-- first background id: 2756
-- card count: 39
-- first card id: 2861
-- list block id: 14039
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 213088 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
On OpenStack
Global FilterGuesses, FilterTable, Donnit
hide menubar
put "Common Rare Archaic Specialized Obsolete" & return into FilterTable
put "Regular Informal Slang Vulgar Obscene" & return after FilterTable
put "English American British Foreign" & return after FilterTable
put "Ordinary Derived Plural Name" & return after FilterTable
-- Shareware Not Paid Version
put False into Donnit
push card
set the lockscreen to true
go to card "Controls"
send mouseUp to btn "Reset"
put the hilite of btn "Apply to Guesses" into FilterGuesses
pop card
set the lockscreen to false
end OpenStack
On picktarget
Global Target, Badword, Tgtpointer
repeat
put the random of 33 into pointer
put char pointer of "AABCDEEFGHIJKLMNNOPPQRRSSTTUVWXYZ" into Initial
put (length of field "WORDS" of card Initial)/4 into number
put the random of number into Tgtpointer
put Tgtpointer * 4 - 3 into pointer
put char pointer to pointer + 3 of field "CLASS" of card Initial into checkclass
checkfilters checkclass
if BadWord is not "****" then next repeat
put Initial & char pointer to pointer+3 of field "WORDS" of card Initial into Target
exit repeat
end repeat
end picktarget
on checkfilters checkclass
Global Badword, Filter
put checkclass into Badword
repeat with n = 1 to 4
if char n of checkclass is in line n of Filter then next repeat
put "*" into char n of Badword
end repeat
end checkfilters